Select Code to Download

@list = ( 'a' .. 'z' );

a b c d e, # arr[0]
f g h i j, # arr[1]
...
p q r s t, # arr[3]
u v w x y, # arr[4]
z          # arr[5]

#!usr/bin/perl

...
    return ( join( " ",  @arr ) ) unless @arr > 5;
    # what goes here ?
}