#!/usr/bin/perl
use strict;
use warnings;
use diagnostics;
        #more verbose feedback
        #useful for debugging

my@num = (1..10);

sub printeven{
        my @given=@_; #pull in list given later: printeven(@list)
        my @evens;
        for (@given){
                unless($_%2){ #unless odd
                        push(@evens,$_); #add number to @evens
                }
        }
        $,=", "; #change list delimiter for fancy printing
        print @evens;
        print "\n"; #newline
        $,=""; #change list delimiter back before it is a problem
}

printeven(@num); #call sub with list of numbers 1-10