foo("square", 3); sub foo{ my ($shape, $size) = @_; }