Perlの配列をshiftにした場合

makefile.cgi を　このように
@array=($mytime, %params);としてから　ファイルに書き込んだ場合
配列を　shift すると　２個に分割表示できるよ　というお話です
ただ　それだけだけど　一応　書いておこうと思いました

#!D:/xampp/perl/bin/perl
use CGI;
use utf8;
$q = new CGI;
#// HTML ヘッド出力
($sec, $min, $hour, $mday, $mon, $year) = localtime(time);
$mytime = sprintf("%04d年%d月%d日%02d時%02d分%02d秒", $year + 1900, $mon +1, $mday,$hour, $min, $sec);
%params =$q->Vars;
$fname = 'trinity777.txt';
@array=($mytime, %params);
#// ファイル書き込み
open(FILE, ">>$fname") or die;
print FILE @array, "¥n";
close(FILE);
#// HTML ヘッド出力をして
#// ファイルを読み込み中味をみてみましょう
print $q->header(-type =>'text/html', -charset =>'utf-8');
print $q->start_html;
#// ファイル読み込み
open(FILE, "<$fname") or die;
print shift(@array);
print $q->br;
print @array;
close(FILE);
print $q->end_html;