#!/usr/local/bin/perl use warnings; @a = ('syake', 'ikura', 'okaka'); ($a, $b, $c) = @a; print $c;