foreach $l (@in) {
my ($rise, $set, $az, $dec, $loss )=Sun::rise_set($yr,$month,$day,$hr,$min,$l->[1],$l->[2],1);
$l->[3] =~ s{(-\d+|/\w+)$}{};
foreach $l (@in) {
my ($rise, $set, $az, $dec, $loss )=Sun::rise_set($yr,$month,$day,$hr,$min,$l->[1],$l->[2],1);
$l->[3] =~ s{(-\d+|/\w+)$}{};