#!/usr/bin/env perl

use Cwd;

our $cwd = getcwd();

@arr = ('cars', 'trucks');


@$arr[0] = (4,3,2,1);

print @trucks;

##</code><code>##

#!/usr/bin/env perl

use Cwd;

our $cwd = getcwd();

@arr = ('cars', 'trucks');

$str = $arr[0];

@$str = (4,3,2,1);

print @cars;