use strict;
use warnings;
use Data::Dumper;
my @array;
my @arraynew;
while(<DATA>){
  chomp;
  ( $array[$.-1], $arraynew[$.-1] ) = split ' ', $_, 2;
}
print Dumper \@array, \@arraynew;
__DATA__
1 http:/abcd efgh/
2 http:/