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