See perldoc perlfunc for open, close, split and scalar, then perldoc perlop for the diamond operator, <>.

Update: You don't need seperate variables for the db line fields, split returns an array: my @ary = split /\|/;

After Compline,
Zaxo