use warnings;
use strict;

my ($str1, $str2, $str3);
my @arr = ('1', '2', '3');

... do stuff with the variables ...