for my $var (@vector) { print "$var\n"; }