Array Perl

$variable1 = (a, b, c)[1];
print $variable1;