This is even easier:
sub uppercase_username { my ($file, $username) = @_; for (@$file) { last if s/^$username:/\U$username:/; } }
It's also efficient
AltStyle によって変換されたページ (->オリジナル) / アドレス: モード: デフォルト 音声ブラウザ ルビ付き 配色反転 文字拡大 モバイル