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