print $_,'' for map{$_*5} 0 .. 5
0 5 10 15 20 25

##</code><code>##

foreach ( ('a'..'z')[map{$_*5}0..5] ) { 
    print $_,''; 
}
a f k p u z

##</code><code>##

@array = (0..50)
foreach ( @array[map{$_*5} 0..@array/5] ) { 
    print $_,''; 
}
0 5 10 15 20 25 30 35 40 45 50

##</code><code>##

@hash{'a'..'z'} = (1..26);

foreach ( (keys %hash)[map{$_*5}0 .. (scalar keys %hash)/5] ) { 
print "hash{$_} = $hash{$_}\n"; 
}
hash{a} = 1
hash{f} = 6
hash{k} = 11
hash{p} = 16
hash{u} = 21
hash{z} = 26