Here is one way to do what I think you want to do:

use warnings;
use strict;

my @stuff = (5..7);
my ($stuff1, $stuff2, $stuff3) = @stuff;
print "stuff1=$stuff1\n";
print "stuff2=$stuff2\n";
print "stuff3=$stuff3\n";

__END__
Prints out:
stuff1=5
stuff2=6
stuff3=7
[download]