#!/usr/bin/env perl

use Cwd;

our $cwd = getcwd();

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

$str = $arr[0];

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

print @cars;