#!/usr/bin/perl -w
use strict;

sub alias{ \@_ };

my @a = (1,"world");

my $arr = alias( $a[0], $a[0], $a[1] );
$arr->[0] = "hello";

print "@$arr\n";