foreach $num (@test) {
print $test[$num] . "\n";
}