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} ) -> ();