とりあえずperl課題ひと通りやった