open( my $lfh, '<', $load_fn ) or die "Unable to open file $load_fn : $!"; my @c_speed = split ' ', <$lfh>; # Char speeds