use strict;
use warnings;
use IO::All;

# v5.18.2

my $io = io $0;

while ( my ( $index, $value ) = each @$io ) {
    print qq($index\t$value); 
    print qq($index\t$value\n);

}
__END__