!/usr/bin/perl $file = '2016_5'; open(READ, $file); @lines = ; close(READ); print @lines;