Analyze code

Can someone take a look at the following sample code and let me know if you
see any areas I can improve upon I tend to use the same structure when
parsing txt files and before I commit this convention into memory maybe one
of you guru's could let me know what I can improve upon.

Thanks


#!/usr/bin/perl -w
use strict;
use Data::Dumper;

my $file = 'sample.txt';
my ($ds,$time_v,$host);

open(my $fh, "<", $file ) or die("Fatal error unable to read $file: $!");

while(<$fh>) {
  /(^[a-zA-Z].*)/ and $host = $1 and next;
  /(^\d+)/ and $time_v = $1;
  if ( defined $host and defined $time_v )
  {
    push @{$ds->{$host}},$time_v;
  }
}
close ($fh);

#print Dumper($ds);

my $total = 0;

while ( my ($k, $v) = each(%{$ds}) ) {
  if ( ref $v eq 'ARRAY') {
    foreach(@{$v}) {
      $total +=$_;
    }
    print "$k: $total\n";
    $total = 0;
  }
}



-- 
[ Rodrick R. Brown ]
http://www.rodrickbrown.com http://www.linkedin.com/in/rodrickbrown