for(0..9) { 
  print " ", $route[ $_ ]; 
}
#or 
print " ", $route[ $_ ] for (0..9);

#or
perl -e 'my @a = qw(10 34 3 4 30 50 60 77); for(0, 2, 4, 6..7) { print
+ " ", $a[ $_ ]; }'

perl -e 'my @a = qw(10 34 3 4 30 50 60 77); print " ", $a[ $_ ] for(0,
+ 2, 4, 6..7);'

# will give: 10 3 30 60 77
[download]