>>679
あほ？
お前は、

sub main {
　my $data1 = read_data1(); #長くて複雑なデータ読み込み
　my $data2 = read_data2(); #長くて複雑なデータ読み込み
　my $data3 = read_data3(); #長くて複雑なデータ読み込み

　my $result = process($data1, $data2, $data3); # 長くて複雑なデータ処理

　display($result); # 人間的に見やすい形式で表示
}

というコードを、それぞれ1回しか使わないからって
main関数に全部展開するんだろ？