#!/usr/bin/perl
use 5.10.0;use strict;

my ($ice_cream, $cake, @cookies);
verse1( $ice_cream, $cake & $cake );
verse2( $ice_cream & $cake );
verse3( split /,/, "slip,"x3 . "slide" );
verse4();
verse2( $ice_cream and $cake );
map { s/_/ /g; say $_," ice cream n cake" }
    qw( Now_who_dat_is_with_the Party_aint_live_without_the Whatcha_want_some All_the_kids_like );
verse2( "$ice_cream and $cake" );
verse3( ("slip,"x3 . "slide") =~ m/(\w*)/g );
verse4();
verse2( $ice_cream && $cake );
verse1( $ice_cream, $cake + $cake );

($ice_cream and @cookies) xor eat($ice_cream, @cookies);

sub verse1 {
    for ( 1 .. 4 ) {
        say $_[0] and $_[1];  
    }
}

sub verse2 {
    for ( 1 .. 4 ) {
        say $_[0];
        do{ $_[0] };  
    }
}

sub verse3 {
    say time, join(', ', @_);
    say join(', ', @_[0..2]) and $_[3] for (1 .. 2);
    $SIG{STOP} = sub { sleep 1; TAG_TEAM: }
}

sub verse4 {
    my $boy;
    $SIG{ALRM} = sub { say "slip n slide" };
    ride( $boy ), kill (ALRM, $$) for (1 .. 3);
    sleep 1; map { $_++ } ($ice_cream, $cake);
}

sub ride { say "Whee!" };

sub eat {
    say "YUM!";
}

__END__