sub viewallcrew {

Title "View All Crew Members";

no warnings 'redefine';
no warnings 'uninitialized';
open(MYINPUTFILE, "crewmemberdata.txt"); # open for input
$| = 1;
my @lines = <MYINPUTFILE>; # read file into list
close (MYINPUTFILE);
foreach (@lines) {
chomp;
my ($VcrewName, $VposDesired) = split(":");
$VcrewName  = "" if !defined($VcrewName);
$VposDesired = "" if !defined($VposDesired);
my $format = "                      %-14s     %-14s\n";
printf ($format, $VcrewName, $VposDesired); 
}
}