#!/usr/bin/perl
use v5.14.1;

my @array = qw(1 2 3 4 5 6);

foreach my $number (@array) {
    say $number;
}


#sub add($a,$b){
#    return $a + $b;
#}
#say add(23, 45);

#sub add { my ($a,$b) = @_; ... }


sub add {
    my ($num, $num1) = @_;
    return $num + $num1;
}
say add(56, 8);


my $bar = "Hello";
my $baz = "world!";

sub foo {
    say for   @_;

}

foo($bar, $baz); #call the foo sub with $bar & $baz as arguments