use strict;
use warnings;

sub print_data{
my @lines;
my $data_line;
my $data_file = "/hoge/fuga/.foobar";
my $fp;
open($fp,"< $data_file") or die "Can't ope data file!";
@lines = $fp;
foreach $data_line(@lines){
print "$data_line";
}
close($fp);
}
こういうサブルーチンをかいて&print_dataを呼び出すと
GLOB(0x80014)とかいう文字が出力されるだけでファイルの内容が表示されないのですが
何処を修正すべきでしょうか?
ちなみに上の.foobarの中身は
Hello
となっています。