#!/usr/bin/env perl

use Cwd;

our $cwd = getcwd();

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


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

print @trucks;