$num_data = 7;
open(my $fh, '<', \$num_data);
binmode($fh);
.......
.......