#!/usr/bin/perl
use strict;
use warnings;
#825421
use Data::Dumper;
my (@array, @tmp, $time, $fields);

my @lines = <DATA>;
for my $line(@lines) {
    chomp $line;
    ($time, $fields) = split / /, $line, 2;
    push @array, $time;
    push @array, $fields;
}

my @arr2;
for my $line(@lines) {
chomp $line;
	my @tmp2 = split / /, $line;
		for my $element2(@tmp2) {
			push @arr2, ($element2 . "\t"); 
		}
}

print "\n first array \n";
for $_(@array) { print "$_ \n"; }
print "\n";

print "\n second array\n";
for $_(@arr2) {print "$_ \n "; }
print "\n";

__DATA__
12345 f1 f2
23456 F3 F4
98765 f-five f-six<c>

<p>Output:</p>

<c> first array 
12345 
f1 f2 
23456 
F3 F4 
98765 
f-five f-six 


 second array
12345	 
 f1	 
 f2	 
 23456	 
 F3	 
 F4	 
 98765	 
 f-five	 
 f-six