@_ = split ( /\n/, $_);
@array1 = @_;