die "$_ isn't using strict, $!" if ($loop == 1 && $line !~ /use strict/ && $_ !~ /index/); die "$_ isn't using strict, $!" if ($loop == 2 && $line !~ /use strict/ && $_ =~ /index/); die "$_ isn't using warnings, $!" if ($loop == 2 && $line !~ /use warnings/ && $_ !~ /index/); die "$_ isn't using warnings, $!" if ($loop == 3 && $line !~ /use warnings/ && $_ =~ /index/);