First, excellent restructuring.

Maybe it's just me – and it very well could be (I'm goofy) – but that menu is just begging for some more compaction:

    my $menu = {
        0 => sub { init_file(\@teams) },
        1 => sub { team_update(\@values, \@teams) },
        2 => sub { team_find(\@values) },
        3 => sub { storage_backup() },
        default =>
             sub { print "Exiting\n" },
    };

    ( $menu->{$reply} || $menu->{default} ) -> ();
[download]

Ah, that feels better.     ;-)

Cheers,
Tom