#!/usr/local/bin/perl
use warnings;

@a = ('syake', 'ikura', 'okaka');
($a, $b, $c) = @a;

print $c;