Perlで参照渡し #Perl

参照渡しの記事を見たので便乗。
Perlにおいて参照渡しは以下のように\を付けてリファレンスとして渡します。
そうするとサブルーチンを抜けた後は変数が書き換えられて出てきます。

subroutine.pl

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

my $foo = 0;

unless (bar(\$foo)) {  # リファレンスで渡す
  die "bar failed";
}

print "$foo\n";

sub bar
{
  my ($baz) = @_;
  $$baz = "hogehoge";  # リファレンスを参照して代入
  return 1;
}