my $first_char = substr $foo[0], 0, 1;