Help for this page

Select Code to Download

Select or download this
```
my @vars = split(/\s*,\s*/,$rec);
```

Select or download this

open (DATA, "<data.txt") or die "Can't open file $!\n";
  @DATA = <DATA>;
...
      # now insert into the hash
      $var_hash{$vars[2]} = 'whatever';
  }