Array Perl

#!C:/perl/bin
@passengerships = ('T', 'O', 'B');
print "@passengerships \n";
print scalar(@passengerships);
print "\n\n";
print $#passengerships;
print "\n\n";
$arraysize = @passengerships;
print $arraysize;