#!/usr/bin/perl -Tw

use strict;

sub step {
    my $step = shift;
    return map { $_[$_] } grep { $_ % $step == 0 } 0..$#_;
}

my @array = ( 'a' .. 'z' );

print join( ' ', step( 5, @array ) ), "\n";