#!/usr/bin/env perl
use strict;
use warnings;

sub myrun {
    print "Yeah, just printing @_\n";
}

sub mysystem {
    system @_;
}

for (0..6) {
    my $run = $_ % 2 ? \&mysystem : \&myrun;
    $run->("echo Number $_");
}