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

# Men hva med to arrays? @_ vet jo ikke når den ene slutter og den andre 
# begynner! Da må vi til med referanser igjen!

sub tell_penisforlengere (\@\@) {
	my @biler = @{ $_[0] };
	my @baater = @{ $_[1] };
	
	print "Det er ".scalar @biler." bilær og ".scalar @baater."båtær\n";
}

my @biler = ('mercedes', 'porsche', 'austin martin');
my @baater = ('sjekte', 'campingcruiser', 'yacht', 'pråm');

tell_penisforlengere(\@biler, \@baater);

# Hva er disse backslashene? Bare en annen måte å lage referanser på.
# I C ville de tilsvart '&var'. Hvilken du bruker er hipp som happ. 
# Disse gjør det samme:
my $biler;
$biler = [ @biler ];
$biler = \@biler;