open FILE , "< /home/you/your.file";

##</code><code>##

open FILE, "/home/you/your.file" or die "Cannot open: $!";

##</code><code>##


#!/usr/bin/perl -w
use strict;

my %data;
open FILE , "home/you/your.file" or die "Cannot open: $!";

# extract data and store it in a hash of tables
while( <FILE> ) {
      @_=split;
      $data{$_[0]} = [ @_ ];
}
close FILE;

foreach( keys %data) {
      print join("\t" , @{$data{$_}}), "\n";
}