Array Perl

#!c:/perl/bin
@ships=('B', 'T', 'H');
print "@ships[0] \n";
print "@ships[1] \n";
print "@ships[2] \n";