diff --git a/moku_arbitrary_pattern_gen.pl b/moku_arbitrary_pattern_gen.pl
index 9219786..29cda11 100644
--- a/moku_arbitrary_pattern_gen.pl
+++ b/moku_arbitrary_pattern_gen.pl
@@ -24,7 +24,7 @@ my @pin_names = ("LS1", "LS2", "HS", "SS", "LSS", "Rx");
 
 $base_cliq *= $divider;                     # apply pre-division
 my $baudrate = round($base_freq/$divider);  # sample rate after pre-divider
-my $sig_period = 1e9/$sigfreq;              # RF period time in [ns]
+my $sig_period = 1e9/$sig_freq;              # RF period time in [ns]
 ##############################################
 
 ### function to return the float remainder of a division ###
@@ -36,7 +36,7 @@ sub remainder {
 ############################################################
 
 ### create outfile in output directory sorted by sampling frequency ###
-my $dirname = 'CODE-AFE_arbitrtary_pattern_'.sprintf("%3.6f", ($baudrate * 1e-6)).'MHz';
+my $dirname = 'CODE-AFE_arbitrary_pattern_'.sprintf("%3.6f", ($baudrate * 1e-6)).'MHz';
 my $filename = 'CODE-AFE_pattern_'.sprintf("%3.6f", ($sig_freq * 1e-6)).'MHz.txt';
 mkdir($dirname, 0777);
 open(MYOUTFILE, '>>./'.$dirname.'/'.$filename);