Remove the first line in Perl $first line…

Remove the first line in Perl

$first_line = <>;

while (<>) {
    do_something();
}