first few days

1/1.pl

@@ -0,0 +1,13 @@
+#!/usr/bin/perl
+
+use strict;
+
+my $start = 0;
+
+while (<>) {
+chomp;
+
+$start += $_;
+
+}
+print $start . "\n";

1/2.pl

@@ -0,0 +1,19 @@
+#!/usr/bin/perl
+
+use strict;
+
+my $freq = 0;
+my %seen;
+
+chomp (my @data = <STDIN>);
+
+while () {
+	foreach (@data) {
+		$freq += $_;
+		if ($seen{$freq} == 1) {
+			print $freq . "\n";
+			exit;
+		}
+		$seen{$freq}++;
+	}
+}