perl idioms I commonly use

perl_idioms.pl

# size of array
sub foo { return qw(foo bar baz);}
$size = () = foo();
# or just use int. scalar works as well, but int is more "intuitive" than scalar to me
$size = int (@array);

# interleave array
sub interleave {
  my %interleaved;
  @interleaved{ @{$_[0]} } = @{$_[1]};
  return %interleaved;
}
# or
@baz = map { ( $_ , shift @bar ) } @foo;

# get last element returned from function returning a list
$s = foo();
# inverse; get the first element
($s) = foo();

# merge hash references
$s = { %{$c}, %{$d}}

# default hash value. the orchish maneuver
$s->{size} //= 0

# create a hash using qw
$s = {qw(foo 1 bar 2 baz 3)}