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

sub test(\$) {
    my $ref = shift;
    print " \$ref : $ref\n\$\$ref : $$ref\n";
} # test

my $string = '1234';
test($string);